With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = 1
	.EndUpdate 
	.BeginUpdate 
	.EnsureVisibleColumn 0
	With .Items
		.ExpandItem(.FirstVisibleItem) = False
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns
		.Add "C1"
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem "Item 1"
		.SelectItem(.AddItem("Item 2")) = True
		.AddItem "Item 3"
	End With
	.EndUpdate 
	Debug.Print( "Export CSV Selected Items Only:" )
	Debug.Print( .Export("","sel") )
End With

With Grid1
	.BeginUpdate 
	.ScrollBars = 15
	.ScrollPartVisible(0,65536) = True
	.ScrollPartVisible(1,65536) = True
	.ScrollPartVisible(2,65536) = True ' &H2
	.ScrollWidth = 4
	.Background(276) = RGB(240,240,240)
	.Background(260) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(404) = .Background(276)
	.Background(388) = .Background(260)
	.Background(511) = .Background(276)
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.MarkSearchColumn = False
	With .Columns
		.Add "Name"
		With .Add("Currency")
			.SortType = 1
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "currency(value)"
		End With
		With .Add("Format")
			.SortType = 1
			.AllowSizing = False
			.Width = 64
			.FormatColumn = "`AED ` + (value format ``)"
		End With
	End With
	With .Items
		h = .AddItem("Value 1")
		.CellValue(h,1) = 10
		.CellValue(h,2) = 10
		h = .AddItem("Value 2")
		.CellValue(h,1) = 20
		.CellValue(h,2) = 20
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = 240
			.Filter = "MAZDA"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = 3
			.Filter = "AIR BAG"
		End With
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = 496 ' FilterTypeEnum.exFilterDoCaseSensitive Or FilterTypeEnum.exFilter
			.Filter = "Mazda"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = 259 ' FilterTypeEnum.exFilterDoCaseSensitive Or FilterTypeEnum.exPattern
			.Filter = "Air Bag"
		End With
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.Columns.Add("Default").Def(17) = 1
	With .Items
		.LockedItemCount(0) = 1
		h = .LockedItem(0,0)
		.CellValue(h,0) = "sum(all,rec,%0)"
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`Sum: ` + (value format ``) "
		.AddItem 10
		h = .AddItem(20)
		.SortableItem(h) = False
		.FormatCell(h,0) = "value + ` <fgcolor=808080> this item is excluded from aggregate computations</fgcolor>`"
		.AddItem 30
	End With
End With

With Grid1
	.BeginUpdate 
	.HasLines = 0
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByFormatCell = "'<caption> (sum: <b>' + value + '</b>, of Freight)'"
		.GroupByTotalField = "sum(current,rec,%6)"
		.SortOrder = True ' True
	End With
	.EndUpdate 
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As Long)
	With Grid1
		With .Items
			Debug.Print( "Caption:" )
			Debug.Print( .CellCaption(Item,.GroupItem(Item)) )
			Debug.Print( "Value:" )
			Debug.Print( .CellValue(Item,.GroupItem(Item)) )
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = 0
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	With .Columns.Item(1)
		.GroupByFormatCell = "'<b><caption></b> (' + value + ') group'"
		.SortOrder = True ' True
	End With
	.EndUpdate 
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As Long)
	With Grid1
		With .Items
			.FormatCell(Item,.GroupItem(Item)) = "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
			.CellValue(Item,"Min") = "min(current,all,dbl(%6))"
			.CellValueFormat(Item,"Min") = 4
			.CellValue(Item,"Max") = "max(current,all,dbl(%6))"
			.CellValueFormat(Item,"Max") = 4
			.CellValue(Item,"Sum") = "sum(current,all,dbl(%6))"
			.CellValueFormat(Item,"Sum") = 4
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = 0
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True ' True
	With .Columns
		.Add("Min").Visible = False
		.Add("Max").Visible = False
		.Add("Sum").Visible = False
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.SortOnClick = 0
	.LinesAtRoot = 5
	.Indent = 13
	.HeaderVisible = False
	.LinesAtRoot = -1
	With .Columns
		.Add "Items"
		.Add("Quantity").Editor.EditType = 4
		.Add("Sum").Visible = False
		.Add("Min").Visible = False
		.Add("Max").Visible = False
	End With
	With .Items
		h = .AddItem("Items")
		.CellMerge(h,0) = 1
		.FormatCell(h,0) = "`Items, <b>sum(` + %2 + `), min(` + %3 + `), max(` + %4 + `)</b>`"
		.CellValueFormat(h,0) = 1
		.CellValue(h,2) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,2) = 4
		.CellValue(h,3) = "min(current,dir,dbl(%1))"
		.CellValueFormat(h,3) = 4
		.CellValue(h,4) = "max(current,dir,dbl(%1))"
		.CellValueFormat(h,4) = 4
		.CellValue(.InsertItem(h,,"Item 1"),1) = 10
		.CellValue(.InsertItem(h,,"Item 2"),1) = 20
		.CellValue(.InsertItem(h,,"Item 3"),1) = 30
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.SortOnClick = 0
	.LinesAtRoot = 5
	.Indent = 13
	.HeaderVisible = False
	.LinesAtRoot = -1
	With .Columns
		.Add "Items"
		.Add("Quantity").Editor.EditType = 4
	End With
	With .Items
		h = .AddItem("Items")
		.CellValue(h,1) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,1) = 4
		.FormatCell(h,1) = "`Total: `+ value"
		.CellValue(.InsertItem(h,,"Item 1"),1) = 10
		.CellValue(.InsertItem(h,,"Item 2"),1) = 20
		.CellValue(.InsertItem(h,,"Item 3"),1) = 30
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.DrawGridLines = -1
	.SortOnClick = 0
	.LinesAtRoot = 5
	.HasLines = 2
	.HeaderVisible = False
	.Columns.Add("Numbers").Editor.EditType = 4
	With .Items
		h = .AddItem("Numbers")
		.CellEditorVisible(h,0) = False
		.ItemBold(.InsertItem(h,,10)) = True
		.ItemBold(.InsertItem(h,,20)) = True
		.ItemBold(.InsertItem(h,,30)) = True
		h1 = .InsertItem(h,,"not included")
		.CellEditorVisible(h1,0) = False
		.CellValueFormat(h1,0) = 1
		.CellHAlignment(h1,0) = 2
		.SortableItem(h1) = False
		h1 = .InsertItem(0,,"sum(all,rec,dbl(%0))")
		.ItemBold(h1) = True
		.SelectableItem(h1) = False
		.CellValueFormat(h1,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "`Sum: ` + value"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As Long)
	With Grid1
		.Items.SortableItem(Item) = False
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As Long,ByVal ColIndex As Long)
	With Grid1
		With .Items
			.SortableItem(Item) = .CellState(Item,ColIndex)
		End With
		.Refresh 
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.TreeColumnIndex = -1
	.FullRowSelect = 0
	.DrawGridLines = -1
	.SortOnClick = 0
	.Columns.Add("Check Numbers").Editor.EditType = 4
	With .Items
		.CellHasCheckBox(.AddItem(10),0) = True
		h = .AddItem(20)
		.CellHasCheckBox(h,0) = True
		.CellState(h,0) = 1
		.CellHasCheckBox(.AddItem(30),0) = True
		h = .AddItem("sum(all,rec,dbl(%0))")
		.SelectableItem(h) = False
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`sum on checked items : ` + value"
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.TreeColumnIndex = -1
	.FullRowSelect = 0
	.DrawGridLines = -1
	.Columns.Add("Numbers").Editor.EditType = 4
	With .Items
		.AddItem 10
		.AddItem 20
		.AddItem 30
		h = .AddItem("sum(all,rec,dbl(%0))")
		.SelectableItem(h) = False
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h,0) = "`sum: ` + value"
		h = .SplitCell(h,0)
		.CellValue(0,h) = "min(all,rec,dbl(%0))"
		.CellValueFormat(0,h) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(0,h) = "`min: ` + value"
		h = .SplitCell(0,h)
		.CellValue(0,h) = "max(all,rec,dbl(%0))"
		.CellValueFormat(0,h) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(0,h) = "`max: ` + value"
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.TreeColumnIndex = -1
	.FullRowSelect = 0
	.Columns.Add("Numbers").Editor.EditType = 4
	With .Columns.Add("Idx")
		.FormatColumn = "0 index ``"
		.Width = 24
		.AllowSizing = False
		.Enabled = False
	End With
	With .Items
		h = .AddItem("3 Numbers")
		.ItemHeight(h) = 0
		.SelectableItem(h) = False
		.InsertItem h,,10
		.InsertItem h,,20
		.InsertItem h,,30
		.ExpandItem(h) = True
		h = .AddItem("sum(0,dir,dbl(%0))")
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.SelectableItem(h) = False
		.FormatCell(h,0) = "`sum of first three numbers is ` + value"
		h = .AddItem("3 Numbers")
		.ItemHeight(h) = 0
		.SelectableItem(h) = False
		.InsertItem h,,15
		.InsertItem h,,35
		.ExpandItem(h) = True
		h = .AddItem("count(5,dir,dbl(%0))")
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.SelectableItem(h) = False
		.FormatCell(h,0) = "`count of next two numbers is ` + value"
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = 1
	.Columns.Add("Numbers").Editor.EditType = 4
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(current,dir,dbl(%0))"
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF0000><b>Direct</b> children: '+value + `</fgcolor> using <a>sum(current,dir,dbl(%0))`"
		.ItemForeColor(.InsertItem(h,,10)) = RGB(255,0,0)
		.ItemForeColor(.InsertItem(h,,20)) = RGB(255,0,0)
		.ItemForeColor(.InsertItem(h,,30)) = RGB(255,0,0)
		.ExpandItem(h) = True
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(current,rec,dbl(%0))"
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=00FF00><b>Leaf</b> chidlren: '+value +`</fgcolor> using <a>sum(current,rec,dbl(%0))`"
		.ItemForeColor(.InsertItem(.InsertItem(.InsertItem(.InsertItem(h,,100),,10),,10),,1)) = RGB(0,255,0)
		.ItemForeColor(.InsertItem(.InsertItem(h,,200),,2)) = RGB(0,255,0)
		.ItemForeColor(.InsertItem(.InsertItem(h,,300),,3)) = RGB(0,255,0)
		h1 = .InsertItem(h,,"sum(parent,direct,%0)")
		.CellValueFormat(h1,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "'sum of <b>Parent Direct</b> children: '+value +`</fgcolor> using <a>sum(parent,direct,%0)`"
		h1 = .InsertItem(h,,"sum(parent,rec,%0)")
		.CellValueFormat(h1,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h1,0) = "'sum of <fgcolor=00FF00><b>Parent Leaf</b> children: '+value +`</fgcolor> using <a>sum(parent,rec,%0)`"
		.ExpandItem(0) = True
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(all,rec,dbl(%0))"
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF00FF><b>All (leaf children)</b>: '+value  +`</fgcolor> using <a>sum(all,rec,dbl(%0))`"
	End With
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = "sum(all,all,dbl(%0))"
		.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
		.FormatCell(h,0) = "'sum of <fgcolor=FF00FF><b>All (children)</b>: '+value  +`</fgcolor> using <a>sum(all,all,dbl(%0))`"
	End With
	.EndUpdate 
End With

With Grid1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = On"
		.PrintExt = Grid1.Object
		.Preview 
	End With
End With

With Grid1
	.BeginUpdate 
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.Def(17) = 1
		End With
	End With
	With .Items
		.AddItem 10
		.AddItem -8
	End With
	.EndUpdate 
End With

With Grid1
	With .Columns
		.Add "C1"
		.Add "C2"
		.Add "C3"
	End With
	With .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "SubItem 1.1"
		.CellValue(h,2) = "SubItem 1.2"
		Debug.Print( .CellValue(h,2) )
	End With
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Grid1_SelectionChanged()
	With Grid1
		With .Items
			.ClearItemBackColor 0
			.ItemBackColor(.SelectedItem(0)) = RGB(128,255,255)
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.Def(17) = 1
		End With
	End With
	With .Items
		.AddItem 10
		.AddItem -8
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.Columns.Item(1).SortOrder = True ' True
	.Columns.Item(2).SortOrder = True ' True
	Debug.Print( .Columns.SortBarColumnsCount )
	.EndUpdate 
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As Long)
	With Grid1
		With .Items
			h = .InsertItem(Item,,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "min(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Min</b>: ` + value"
			.ItemPosition(h) = 0
			h = .InsertItem(Item,,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "max(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Max</b>: ` + value"
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = 0
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True ' True
	.EndUpdate 
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As Long)
	With Grid1
		With .Items
			h = .InsertItem(Item,,"")
			.SelectableItem(h) = False
			.CellValue(h,6) = "sum(parent,rec,dbl(%6))"
			.CellValueFormat(h,6) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.FormatCell(h,6) = "`<font ;7><b>Sum</b>: ` + value"
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.HasLines = 0
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True ' True
	.EndUpdate 
End With

' ItemOleEvent event - Fired when an ActiveX control hosted by an item has fired an event.
Private Sub Grid1_ItemOleEvent(ByVal Item As Long,ByVal Ev As Object)
	With Grid1
		Debug.Print( Ev )
	End With
End Sub

With Grid1
	.LinesAtRoot = -1
	.ScrollBySingleLine = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.ExpandItem(h) = True
		h = .InsertControlItem(h,"Exontrol.Grid")
		.ItemHeight(h) = 256
		With .ItemObject(h)
			.LinesAtRoot = -1
			.ScrollBySingleLine = True
			.Columns.Add "C1"
			.Columns.Add "C2"
			With .Items
				.CellValue(.AddItem(1),1) = 2
			End With
			h = .Items.AddItem(3)
			.Items.CellValue(h,1) = 4
			With .Items
				.ExpandItem(h) = True
				h = .InsertControlItem(h,"Exontrol.Grid")
				With .ItemObject(h)
					.LinesAtRoot = -1
					.Columns.Add "Inside-Inside"
					With .Items
						h = .AddItem("item")
						.InsertItem h,,"child 1"
						.InsertItem h,,"child 2"
						.InsertItem h,,"child 3"
					End With
				End With
			End With
		End With
	End With
End With

With Grid1
	.Columns.Add "Default"
	With .Items
		.AddItem "Child 3"
		.AddItem "Child 2"
		.AddItem "Child 1"
		.ItemPosition(.ItemByIndex(0)) = 2
		.ItemPosition(.ItemByIndex(1)) = 1
		.ItemPosition(.ItemByIndex(2)) = 0
	End With
End With

With Grid1
	.Columns.Add "Default"
	With .Items
		h3 = .AddItem("Child 3")
		h2 = .AddItem("Child 2")
		h1 = .AddItem("Child 1")
		.ItemPosition(h3) = 2
		.ItemPosition(h2) = 1
		.ItemPosition(h1) = 0
	End With
End With

With Grid1
	.LinesAtRoot = -1
	.ScrollBySingleLine = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.ExpandItem(h) = True
		h = .InsertControlItem(h,"Exontrol.Grid")
		.ItemHeight(h) = 256
		With .ItemObject(h)
			.LinesAtRoot = -1
			.ScrollBySingleLine = True
			.Columns.Add "C1"
			.Columns.Add "C2"
			With .Items
				.CellValue(.AddItem(1),1) = 2
			End With
			h = .Items.AddItem(3)
			.Items.CellValue(h,1) = 4
			With .Items
				.ExpandItem(h) = True
				h = .InsertControlItem(h,"Exontrol.Grid")
				With .ItemObject(h)
					.Columns.Add "Inside-Inside"
					.Items.AddItem "item"
				End With
			End With
		End With
	End With
End With

With Grid1
	With .Columns
		.Add "A"
		.Add "B"
		.Add("Sum").ComputedField = "dbl(%0) + dbl(%1)"
		.Add("Concaternation").ComputedField = "str(%0) + str(%1)"
	End With
	With .Items
		.CellValue(.AddItem(1),1) = 2
		.CellValue(.AddItem(21),1) = 22
	End With
End With

With Grid1
	With .Columns
		.Add("A").Editor.EditType = 4
		.Add("B").FormatColumn = "currency(%0)"
		.Add("C").FormatColumn = "%1 format ''"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
		.AddItem 3
	End With
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub Grid1_Click()
	With Grid1
		.Ungroup 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.ReadOnly = -1
	With .Columns.Item(1)
		.Alignment = 1
		.Def(4) = 15790320
		.SortOrder = True ' True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarHeight = 24
	.HeaderHeight = 24
	.BackColorSortBar = RGB(240,240,240)
	.BackColorSortBarCaption = .BackColor
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" & _
"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI"
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.Alignment = 1
		.Def(4) = 15790320
		.SortOrder = True ' True
	End With
	With .Columns.Item(5)
		.Alignment = 1
		.Def(4) = 16119285
		.SortOrder = True ' True
	End With
	.Background(28) = &H1000000
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.Alignment = 1
		.Def(4) = 15790320
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = 5
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByTotalField = ""
		.GroupByFormatCell = ""
	End With
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As Long)
	With Grid1
		.Items.ItemDividerLineAlignment(Item) = 3
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ScrollBySingleLine = True
	.LinesAtRoot = 5
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(6).AllowGroupBy = False
	With .Columns.Item(1)
		.GroupByTotalField = "sum(current,rec,%6)"
		.GroupByFormatCell = "'<font ;11>' + <caption> + '</font> <fgcolor=808080>( Freight: ' + currency(value) + ')'"
	End With
	.DefaultItemHeight = 28
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As Long)
	With Grid1
		With .Items
			.ItemDividerLine(Item) = 0
			l = .GroupItem(Item)
			.CellSingleLine(Item,l) = False
			.CellBold(Item,l) = True
			.CellBackColor(Item,l) = &H1000000
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ScrollBySingleLine = True
	.LinesAtRoot = 0
	.TreeColumnIndex = -1
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BKoCg6AADACAxRDAMgBQKAAzQFAYcBuGiGAAGMZhWgmFgAQhFcZQSKUOQTDKMIziaQIRDEMw5SSNIxyAK0QBkAqNQCkKKwIgmNYDSBMYABB" & _
"IMBwiGQaRJnegYRDUMJCQjRVITVLMNoXDKZIyqEAHfpWVJWSLHcIhDBJUjcOYyTiOQrzCK8dB0G6bIrGEZpYRAPwEYDIIjbQhqFYDChCNLwHScEAxC4kLhnKK6Vb9d6H" & _
"YhiOJYXhmDrfR7IMhyLI8QafFqXZhmOZZXizPY9T7QNB0LQ8eZbJqnahqOpaOx2W5dV7YNh2LTWGzXNq3bhuOzLbrme59X7gOB3RZeE4XRrHchxKq8XxnG6dZ7oOTUXo" & _
"fFOK5WmudQTh2LpfHOO5em+doSh4LwfhOS5mnGIw9D6LxfjOW5unSIQ+D8L4flOa5yD2fg/D+L5fnOe54ByigGAKAJgEgBBrgGYIICYCoCmCSAcGOA5hAgRgSgSYQBGo" & _
"FoFmGCBmBqBphGESgegeYgIgYIoHkSKIWCaCZigiJgqgqYhog4LoLmGSJGDKBZhEiVg2gMY4ImYCIBGOSJ1n6D5kAeZZ2hCZBHj4RoRl6J4eEqEpeAkNhOHaXYJEYUh0" & _
"GUSRVkwchlgkZZChaZZGnWOoXmYBpOGKGJamaLhmhmWhJiYahnlmSY2G4ZZZEmRhyGMZxJlWCBhFCFgWHaHpYkmSh+GSJp6AWG4amgRoOGeIZahmEoKGyJgKDWOIXGkB" & _
"wGFmJJcHkWoWHQJQqGWVoTmmRx+EuJ5eFkIoiHuJBKhWdIQGqB52D2KpgDiaougMIxqyODJrEgbgvi2YgYjKOoumKSpij4FIrFsBg0iyLBKj6RoOmqSwmimMpkCqGpOi" & _
"ibQJCaII0mmWxWFCJotgoXpahWaRLHaEY3mWag6mKIpuEmFoIjmaBbiYbIgi6RhaH+O5Onmcpyh2VYAAEASAg"
	.DrawGridLines = 1
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Columns.Item(1)
		.GroupByFormatCell = "'EmployeeID: ' + <caption> + '<br><font ;7><fgcolor=808080>Count: ' + value"
	End With
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As Long)
	With Grid1
		.Items.ItemDividerLine(Item) = 0
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Grid1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Grid1
		h = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.GroupItem(h) )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate 
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As Long)
	With Grid1
		.Items.ExpandItem(Item) = False
	End With
End Sub

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor=FF0000>Try to drag the EmployeeID column here."
	.AllowGroupBy = True
	.Columns.Item(1).AllowGroupBy = False
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SingleSort = False
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True ' True
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.EndUpdate 
End With

With Grid1
	With .Columns.Add("Numbers").Editor
		.EditType = 1
		.Numeric = 1
	End With
	.Items.AddItem 12
End With

With Grid1
	With .Columns.Add("Numbers").Editor
		.EditType = 1
		.Numeric = -1
	End With
	.Items.AddItem 12
End With

With Grid1
	With .Columns.Add("Numbers").Editor
		.EditType = 8
		.Mask = "###.###"
	End With
	.Items.AddItem 12
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 1315 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc Or FilterListEnum.exLeafItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Child 1"
		.FilterType = 240
	End With
	With .Columns.Add("Date")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = 9474 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
		.Filter = #12/28/2010#
		.FilterType = 4
	End With
	.FilterCriteria = "%0 or %1"
	.Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
	.Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
	With .Items
		h = .AddItem("Root 1")
		.CellValue(.InsertItem(h,,"Child 1"),1) = #12/27/2010#
		.CellValue(.InsertItem(h,,"Child 2"),1) = #12/28/2010#
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.CellValue(.InsertItem(h,,"Child 1"),1) = #12/29/2010#
		.CellValue(.InsertItem(h,,"Child 2"),1) = #12/30/2010#
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Date")
		.SortType = 2
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = 9474 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem #12/27/2010#
		.AddItem #12/28/2010#
		.AddItem #12/29/2010#
		.AddItem #12/30/2010#
		.AddItem #12/31/2010#
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Date")
		.SortType = 2
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = 1282 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem #12/27/2010#
		.AddItem #12/28/2010#
		.AddItem #12/29/2010#
		.AddItem #12/30/2010#
		.AddItem #12/31/2010#
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = 1280 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		.Filter = "to 12/27/2010"
		.FilterType = 4
	End With
	With .Items
		.AddItem #12/27/2010#
		.AddItem #12/28/2010#
		.AddItem #12/29/2010#
		.AddItem #12/30/2010#
		.AddItem #12/31/2010#
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = 1026 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems
		.Filter = "to 12/27/2010"
		.FilterType = 4
	End With
	With .Items
		.AddItem #12/27/2010#
		.AddItem #12/28/2010#
		.AddItem #12/29/2010#
		.AddItem #12/30/2010#
		.AddItem #12/31/2010#
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Dates")
		.SortType = 2
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = 1026 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem #12/27/2010#
		.AddItem #12/28/2010#
		.AddItem #12/29/2010#
		.AddItem #12/30/2010#
		.AddItem #12/31/2010#
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	.Description(25) = "Leaving out"
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 1280 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.SelectItem(.InsertItem(h,,"Child 2")) = True
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 16386 ' FilterListEnum.exShowBlanks Or FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 16640 ' FilterListEnum.exShowBlanks Or FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 256
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = 128
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	.Description(0) = ""
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = 2
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = 2
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.EndUpdate 
End With

With Grid1
	.LinesAtRoot = 5
	.Indent = 12
	.HasLines = 2
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
	End With
End With

With Grid1
	.LinesAtRoot = 1
	.Indent = 12
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
	End With
End With

With Grid1
	.LinesAtRoot = 5
	.Indent = 12
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
	End With
End With

With Grid1
	.LinesAtRoot = 4
	.Indent = 12
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
	End With
End With

With Grid1
	.LinesAtRoot = 3
	.Indent = 12
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
	End With
End With

With Grid1
	.LinesAtRoot = 2
	.Indent = 12
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem .InsertItem(h,,"Child 2"),,"SubChild 2"
		.InsertItem h,,"Child 3"
		.ExpandItem(h) = True
	End With
End With

With Grid1
	.BeginUpdate 
	.DrawGridLines = -2
	.DefaultItemHeight = 36
	.FullRowSelect = 0
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = 1
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = 1
		End With
		With .Add("Column3")
			.Alignment = 1
			.HeaderAlignment = 1
			.Visible = False
			.Def(2) = True
			.Def(3) = True
		End With
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),2:64"
			.Def(32) = .FormatLevel
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.CellValue(h,1) = "Cell 1.2"
		.CellValue(h,2) = "Cell 1.3"
		h = .AddItem("Cell 2.1")
		.CellValue(h,1) = "Cell 2.2"
		.CellValue(h,2) = "Cell 2.3"
	End With
	.EndUpdate 
End With

With Grid1
	.LinesAtRoot = -1
	With .Columns.Add("Default")
		.Def(0) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	With .VisualAppearance
		.Add 1,"XP:Button 3 12"
		.Add 2,"XP:Button 3 11"
		.Add 3,"XP:Button 3 10"
	End With
	.CheckImage(0) = 16777216
	.CheckImage(1) = 33554432
	.CheckImage(2) = 50331648
End With

With Grid1
	With .Columns.Add("Edit").Editor
		.EditType = 1
		.Option(202) = False
	End With
	With .Items
		.AddItem 10
		.AddItem 20
	End With
End With

With Grid1
	With .Columns.Add("DropDownList").Editor
		.EditType = 3
		.AddItem 1,"DDList 1"
		.AddItem 2,"DDList 2"
		.AddItem 3,"DDList 3"
	End With
	With .Columns.Add("DropDown").Editor
		.EditType = 2
		.AddItem 1,"DDType 1"
		.AddItem 2,"DDType 2"
		.AddItem 3,"DDType 3"
	End With
	With .Items
		.CellValue(.AddItem(1),1) = Grid1.Columns.Item(1).Editor.FindItem(1)
		.CellValue(.AddItem(2),1) = Grid1.Columns.Item(1).Editor.FindItem(2)
	End With
End With

With Grid1
	With .Columns.Add("DropDownList").Editor
		.EditType = 3
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
	End With
	With .Columns.Add("DropDown").Editor
		.EditType = 2
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
	End With
	With .Items
		.CellValue(.AddItem(1),1) = "Any"
		.CellValue(.AddItem(2),1) = "Any"
	End With
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Padding-Left").Def(52) = 18
	With .Columns.Add("Padding-Right")
		.Def(53) = 18
		.HeaderAlignment = 2
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.DrawGridLines = -2
	With .Columns.Add("Padding-Left")
		.Def(0) = True
		.Def(48) = 18
	End With
	.Columns.Add("No-Padding").Def(0) = True
	.Columns.Add("Empty").Position = 0
	With .Items
		.CellValue(.AddItem("Item A.1"),1) = "Item A.2"
		.CellValue(.AddItem("Item B.1"),1) = "Item B.2"
		.CellValue(.AddItem("Item C.1"),1) = "Item C.2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = -1
	.Columns.Add "Items"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(0) = True
	End With
	.EndUpdate 
	.DefaultItemHeight = 12
	.Items.ItemHeight(0) = 12
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		Debug.Print( "Locked:" )
		Debug.Print( .Items.IsItemLocked(Item) )
		With .Columns.Item(ColIndex)
			.Filter = NewValue
			.FilterType = 3
		End With
		.ApplyFilter 
	End With
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub Grid1_MouseUp(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Grid1
		.Edit .Items.LockedItem(0,0)
	End With
End Sub

With Grid1
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	With .Items
		.LockedItemCount(0) = 2
		h = .LockedItem(0,0)
		.CellEditor(h,0).EditType = 1
		h = .LockedItem(0,1)
		.ItemHeight(h) = 4
		.ItemDivider(h) = 0
		.SelectableItem(h) = False
	End With
End With

' Event event - Notifies the application once the control fires an event.
Private Sub Grid1_Event(ByVal EventID As Long)
	With Grid1
		Debug.Print( .EventParam(-2) )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.DrawGridLines = -2
	.DefaultItemHeight = 36
	With .Columns
		With .Add("Column1")
			.Visible = False
			.Editor.EditType = 1
		End With
		With .Add("Column2")
			.Visible = False
			.Editor.EditType = 1
		End With
		.Add("Column3").Visible = False
		With .Add("FormatLevel")
			.FormatLevel = "(0/1),2"
			.Def(32) = .FormatLevel
		End With
	End With
	With .Items
		h = .AddItem("Cell 1.1")
		.CellValue(h,1) = "Cell 1.2"
		.CellValue(h,2) = "Cell 1.3"
		h = .AddItem("Cell 2.1")
		.CellValue(h,1) = "Cell 2.2"
		.CellValue(h,2) = "Cell 2.3"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.AutoDrag = 16
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.HTMLPicture("p1") = "c:\exontrol\images\card.png"
	.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
	.AutoDrag = 11
	.LinesAtRoot = 0
	.HasLines = 2
	.ShowFocusRect = False
	.DefaultItemHeight = 26
	.Columns.Add "Task"
	With .Items
		h = .AddItem("<img>p1:32</img>Group 1")
		.CellValueFormat(h,0) = 1
		.ItemDivider(h) = 0
		.ItemBold(h) = True
		h1 = .InsertItem(h,,"Task 1")
		h2 = .InsertItem(h,,"Task 2")
		h3 = .InsertItem(h,,"Task 3")
		h = .AddItem("<img>p2:32</img>Group 2")
		.CellValueFormat(h,0) = 1
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		h1 = .InsertItem(h,,"Task")
		.ExpandItem(0) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HTMLPicture("p1") = "gCJKBOI4NBQaBQAhQNJJIIhShQAIERFQIA0RAYGLriiIEM5BJpBiIARYlMBNhQPLhJIhBKhoQLlTTLV4la5VYx/fZVOoee7de62drYdI4YIWcIteIQEbEEAzCghEwIR" & _
"IZKSmJD8EIZMzARgZKYmEAmDISYgEAISIJKdg4JzSOK7bp9b73HiqezeNYxLD7Th7N67dpmQSQIZJUpzVRqT46PY9Xy1yL2Qz/c6HXbzHoAKYgWrzC7tZDtLgBOpzOaj" & _
"QApWDXZwOdABb6eHa+fCHMTCB7AMo7S6AIxMcADcAIfHEe6AQ7/G7zfhfHqeAb/AJ8B6TfITMAVGLrd4Db78aY/fydH77axfPjjS5fP7tcLMY6EOYed4dbyHcwHCoHfA" & _
"ICCApOHEDgcA+OAnACAJgBya5jAoLh5hCc4OGcQ47GeQIBneNoGHaTI5kAKxOHuHAzjGXp5mwAZgnyNB/nCPh9g+ABinGYA1kmGYAAqThjgGQRwHiThPC8Vhfnma5/ng" & _
"XZvn8ew7keQBfmOUAYCIBj7ngbY/nqS4/nkDYzieXwLn+dp+j+EpiE8CAAEKNwZFOTZ3FCOpgHyRQHkCcAJmUDRzgEHwhAYHoRAGHxADuCAxAeDxOAcHA3jmRw4guaoa" & _
"mcbZMAwM4EDWTkNgGqQqHYPJEDmKhrDwB4QmcKAsgkcQGGQHBLiYfBGjcCESFATIID0KgDjgBJ3hGVQVk4JZqHcbpklef58g+fwFScd09j+AwnECWY0FeEIBFmdIyAsZ" & _
"4fHyEIRB6Ch4F8UZLDWdQ5CAAheEOTAxGmWgDhqYIaEGO4AgiAYNm8RhwACKo4HaCgviCHptB4Uo9ACAQlFsG5rEINAFh4WpxAQRAqE4QAlGARJGjmLw2EYfAdk8DIom" & _
"YGJKjISY5AiChKGYIg/EMUg7iEGZ7B8GABn4Do0jYWRVASMgiGoLwTHMdJKEkaI9CaZwej6H85mcCAGlwBQfFoH4bFyJgEAOdRBBCEoSC4ZpUAOOpwBURBbieeYzEeKw" & _
"IAOJQAFSVABp6U5Kg+PhvkGex8HAOJnE2ZgPF4WY1kQHALiic54lcYYQiAQ55g6VQbHMdZfjyF4PCYTTLkaAQGCadRIE0VImlQLQgm0EhalsNYMkgHRMDKHpiGoEYmlA" & _
"RpZDQYQMiECYzHwQhEHCKZOmOVZ+mMJYgFqIRgBYVoLCmXgHlAaoeCUYJKgcU4IneHoQiIQR5kIDBEBiGhMDoHgL4CQ/BiBeEIOILgRBaBwL8fweAZiZGaNEWoYBwjuB" & _
"SAAOoiASBECMJwG44Qih6EEDMcIRBmCyBcPQRgwwBCRECJgPQ+h0gRBCDQZYNwXjwB8FAVYvQsC8BSKYWy+BvABC8DwSobAghSAEOoFgjGKAVEeJCA4oBxDZB2PwWQCW" & _
"qgQAkCEAgfA4D2HSB0PwEwsBdCICkBoKgIjVAEFcD4gw8D0CsAEXwnQtgFBoAUPIahmiICANQRwWgjCDGKAsbwEBaCjEozkWQDhECcCiMsIAjBIiQBMAYA4DRUCMBsCk" & _
"YA+xaCFESG8P4LwBCqGqIQOgiRtASESIYOA+xmAnCoIUYo1QJhiE4BIAT+REghVkG0SwcgnCbAEJoI44QoCnFQFQCgjx0BdCSG8XIzQegFc0KgbIJgWgkDUBkOIrgEic" & _
"COKAM4HBwDnA+JkIQXg9jYBmJ1SI3w4hxDsIYNQzxnDeEUPkZwIQfAaFcE0LQmwsAtEsEYAo8BXCjCsEAAYLggDQEIOQYIsBWgeFSBkEo4A+iPBQIQGAIQ8AIBCBEPow" & _
"BDjQCkKQAAHhoiMBGFEWoggFDqEkBkIA7RcjKDwNcAYthjh9AeBAIoKhCDUDaD0YIewUAlFiFoRqrBlhVGOHoAoXw9ADH0H4cA2RZieFmAsZAQwnitHgPoS4RhfDyEqH" & _
"MaQcAhiaHoAQa4gwDCzCEB4GISgIgACeM0DIHwQi0AZAkOIGgoCfFQncQ4ZhcgqHYB8HwagsCPGaOoZwAhQATHGAwKgcAAiVGMjsSIihRBcFeK4CILQ7hjGAMsCoUBSg" & _
"iEANMYg1RiiCAoKAd45wuCeDMK4VwYAbA3AQDgIwchDCUD2EIdAqA8gkCuAsSgXQZCcFeFcM4jAxhPHYOYZgdxHChAwCwJQhQ4hMB4H8SwKAKgeA4MMfwQQRV9qGPcGw" & _
"UQDjOBOGoDwUA9BWBuJ8CEIxlh7G+MgKgxRciEEkHERo9hUBWWIJURgqhRA4CoEsJYjxXhQAAKKoY8R6DjGYLMaYjgMAgBKKgAQwQ7jcBYGAP4Fx9TnE8MMOgAhDiHFg" & _
"FgYAcAFA7F2DATYdxGCjCCGcWIgBzinAWI4R4MxZh5FEMgEIVwrgzCUPESgIhCCYCwP4CgPg/DiASDEQIwhnBuBIMYIQ6g9X2D2GYOYmxTD3AcB8CQ3hbh4FaGoHI3gk" & _
"j7HIE4awEAiAtAaCkXwxQSBAH6CsEAgBhi5BSMscoihug5HxmgLgZQFhYAqKYGIMRPgvCwCwFgqh9gwFOOQAoKg4D8pm2UOIeQOAAHwOgEYWBXA7BcC4I4tBHDgBlkoQ" & _
"95x7hJFaN4OgwRbgAHWPEYIcw6gFFqEYUwUxnhsB8DITYGQciaHeL0bIKBZADAoG0CgFxWioDuGYNolQLAEAWkEagowVCs2SFAeIWBzD7A5NwC4kAuB4DgAQWYqRuj7G" & _
"SAoQwDCtgZH0OQCYGBjgOAiDgbAzxmBmDgHzjQQBvh3k+CwS4PR1jRHEMcNgAhLgXGMCsPgGAsguGeBkQ4cxTDzCGKYWYfQpDwCoAoRQZwzguA4B4BrVhsA7HhycDIpQ" & _
"jhrDCHkeoiR4gLDQIQYIXAtMfD6EAdQaBrMBEiLEJIFAoAdCiBEKgow8jNHOCqwgrhMi+A2PEMIThWiZFcIMaoCBIhEGSJkTgOwhCAFGAcBIRxvCmBqIcLIvwrC4FyIE" & _
"dYBRqDaEiEcRAYRBi/GcFIc4OBJDLCmNYVYGwzdGBMNMDIqgYC2DyO8dwQQLgHCWLsJwEB4hIHGNkVwWRvreAiI0LQKwRDZGwKAVgUQGD7AcEEUgIAnBQFEI0f4XAEO6" & _
"GsHADoaBSDkEKE0DQwwoCuBMMwQYBx4DwAIEoDwjQOBYhUgNhGAGBwgWB9gCADhXBZhkBfgtAAgFApBNhKABAcuohnAPhphug6B2B3BehghyAghRArAWBgAjBghDhPAp" & _
"AZF1DsB4hjAlBUBFBEhThiheArAFhVBtB1BIhuBiAHgUALBMgXhXg/hGAqAggbAuB+hZgKgQHdBSgTAxA2A1AfBDhigRBAgyBzApgFhAAjh9goAlhvBSBsArACsBgshA" & _
"BBhNgVgphqBvBAg8higxA0hPhoghhkgNgcBaBtBRhhBdBHB2B2AeBQgFgRhxh4ADAYgsgtBWBahchdBgB6h8gjgTBMABgIgghqh0AXAcAJhtBEAQAVBigZBMh5hUAKBN" & _
"guAKAph+BVgQBYBglUBUgKgbAOhZgEgOAOhghygagOAOAgAlARhRA5hOByAWh6g6p/gugChjAAhrABhWBDBHA6hDByBtgaBeg8hpATBVvSg2vRgDhSAHJxvQA+AhB4A5" & _
"hJB3h0gzgjhUAEBagFAnhPg/g2BUhIqJhchGA3hUgJBmh8BIAmAAgnB4BnBxhegjgMgtAyhsgphVheAdADA+O2hAhzB4AQBxA+AzAsABhpBYgBATBuhOheB1BshTBNBZ" & _
"g5gsBWAWAnBWALBYBUAOwAh0gTARhoB4segWBrg4A/Awhgh5h6Bch4hFhRghgFhSAjgjhwAshYBcAfAhh1AgAkAeg3geh5A8G2BSh6gHAAAVBnAghGBQBdA3A+gEAggM" & _
"gfhqgth4BQlMBXgGBBA3BJgxhZg0g7BVhEBhB/A3AxBahlBWP0g7BMh0h9BiBoh/AkBvhMh4AqnwABhjAWh0hEBUgCgjh2gUA1gcAdBAhOgOhMAmBggZh5BjA1gOgtBQ" & _
"h3h2hWBCg2gLgpAVsNBWhnAUBZhAhfBvgRhCAwASh6hbAUgyBihJBEBwA6gmh4BggBBSBBAygABghEgIgWAaBQB3BKgFAYBRAQAFBggig0BGgFAIg5hYhKBwB5BlAYBe" & _
"gPAwAuA6h2B3hhhnA+ASBiBGA5g4BYADgYhGBUBBhVhNhcgispBFA4A/hnhyAFhnAEBKH9hjh6gNBnAnAwgfB1gMhjhAh0hmBsAwBWhQAsBygshDAChYhNhZguB6AuES" & _
"BeB+gXB+ByABg3gugVgeAvg9g7hwBBgPh3z/AmATBYA/gsBshthngrBlBZhiBCgugaBeAFABBnA2h4hWAtB3BcBnBWghAxA1g/BCACBFgahKAFA+hrgIimgXAIhhBkBg" & _
"hAhihCwVArhshvA4h+AwASAChAAHAqhVgVoTB5B1gIoOAxBBBphzgegbgFgcAeB2BggMgWA1BDBWB4BxgHgLAmMrBrB1gHAUgdgeA9BdgJEbhDgfhNAQhah5B7AXhWhI" & _
"hdByAjh3gCgpB2Acg+hvB5hzBLhLhSBnB0BdhfBSBfqRgNhVAFAQhMB1hrhNAEhQhY1SB0ANAxgxA7gDg7A7gwBWAMg+BRB1hmBxApAjhlhtg6ADBAhdA8g8hZBpArBG" & _
"ANBFhTA2g3hQhLBIhshWBxhggQgmA9g8B/BeBxzzh/AXh8JCgDAqAdglAMg8B+AJhMBnBwB0BgggAPAjhrBFgThqA4gigPADgiAVASudB6gJBUhAgtAwB3h4BFFxhwBh" & _
"h7hQhyAhBnAlh6ASgOh/B9gFBIBrA8g6hbh2hWgrBmgpA1BjB9gkAmAWgAALBMA7g4A6AABnA6hLACglBjBChCAVBth9Atg1BTB3gGhZhhg0BrhvBNhJBSBvAzBTBjgn" & _
"hwBTgPhhBig8hjsJBIgRBKhPBJAjgXAXoYgPAHAHgABrhRhoB8U0B5BzBGBqhxBFAVAYBGAVg5BUhqAtAMhrgFhzAdgbhSAqA8B7AKAlAvB4gJANB4AxALAoAiVhpxBk" & _
"hqBZARBiAUgZBXBbAvKRARAzhFgGg9hdhMhshmAMARAMAIh5BnBeAgA6AyAdAMhUi4BeBPhsBMqrgzhJh3BdAchRARhXBYhhAYg7guAuhGAEBzAchLgrhYBeAMosB0AU" & _
"B8hNBygmhnquAbgbgOgHAVhaA/B6AvBvgwBthRhdBwB9h/g3A4BEhohdBgh3h/gwA3BHge0eg4B6BwBLBtg+BHABAOBagzApBNApBOh6gBghB5gBAI4QgLhTAEBMhBgu" & _
"gRgkhnAihOBlgtglhLBNBEg0hFBzBIvEhbhvBYBkB3gugzg+BehNBTg8A3hrhRBjAGhvA/BqBwhuBkBigygjgkAOgugbg5A+gGhpgkhnhkghh1gvAdAzhWhdBLBWAoAM" & _
"h4BYhbg3AqAZBHhBBjhiB/ACBqgPBjhADNAfh+hoBdAtgpAfgmhCh3gghgANBIg2BegABQAaAXg0AHBBBLAxAYM0AiBXg6gyhSgWANhLgzglhRAoBMB6ARgpAWhWg3Bt" & _
"BrR9hAAqg8gLAPtxAZhlgZAjhDgRgHgn1PgEBhgxBiB9hHAHgfgAAI09A1BYhZqNAwAYAHBWklgGBsgIBYhizSB4BMA4g8BjBcLHXkhCjqAIg1AsgwPRhWhsBshcBJBq" & _
"gEhMhhhBgUg8gsA2gCgHAQhBYYAzBaBAgnBkgAARgRZShpgLANA3BxgChmgVhyBnAmBBADgaBJmrh0iUB+hwB+gzB+h2gyA9hRhigdAIA+BHhkAkgtnMgAhehShtAHZz" & _
"BRgUidgqNYrtR1hThggtAEAfAohiBCBOA6AjA4gyhZgHA4ATg3BsB6g2hytDhPQwhjD5gLAVp+BDBsATgppBBkgMhzgdoOP+YahHB0BBW7gHBHAdBDB6hkB4gEhqAdB4" & _
"ByBRhPBbuqBLBrACAPB/g2BwBmhbhPBQgWg2h/B2BhgJhvA+B6AGBzhwB+AGOkAJhSB6B0All2BUgaB0BtAtBEgkBjAbgbAUBJBbh7rOgyh9h2A7B2A+gzhtACAmBaZ1" & _
"Bqh6BWgWgmgrAMvbBdgLALgjAOA0gdsEBfhlgLAhhrA1hcBcBYAzhaggAUgoAjBxgQhpBVBoBJBsgXBzBqI4gLgTgGB1gJgHBHgNApg+gkgLA8BQgjhqAaBqBpBQA1gu" & _
"h5gWg6BNB/hEhvArhkBlhdBWgbBDA9gxgbAChuAjAcA2hSh6ATBWgkglhPhNgKAEhOgug1hxB0AEA3BXBmhRQRAZBrgBApBPg2g8hCgaByhUE8BUhKhwBHvMhKhwhrAP" & _
"A9h4g8A0gYhaBMhqAzhvA/h4hwhlgDA/hrBQh7g1gDBcAug4AogAhSAhgbh6hiAjAQg1BXB+h9B1gjBKBdACBageBxh0hpgJgOATgUATBwBJhPhPhwAeh6ApzQgnA8B2" & _
"glgegVBhgrAgg9AlgChbgZhHAXhvBsAuBeA2ArhiA7BoBFgHgvgZBsBIgvBVAMA1gxgAhtA2hfg3geBkAlB1BYrbhbgKhzBbBUhEpeMhgOhnA+hGg7hvBQhWgwBGhSB3" & _
"A1heB5h3AahUhvhahtBvgGhQAOgRBhhbAtg6gDgBA2gEhjBtTmA2gMgshvOYB8h4B8BVgLAig+g1AGhChtheBdgIh0B3AZgYB5B5gUgCg8BBhghFglBdAHhLg8ccBagh" & _
"gShvB0hwAhBWgxglhlgNgkBSArA612tcg6gZhrBLUohIgZBQZVAWFNh1h/BVhyBNhNgGAKA2BTgkAAhtgQhZBsgdB5BPhvh8hNhfh9h9A3g+h5gNhfhdAdB9B+h0Ahg2" & _
"BmgiBYhGgGhYB2hUh8gIAthHhXA2hEB4BbB0E5haBwAOBvAjgxgvBtgTBFhjg8hHhqA5A/gmA2glhxg2gJhDAWhKhsg5BLgChrhth9n6giAVgwhhhnhOg0hlBuh8h3O1" & _
"g6h5gdg5gPhzgOhZAvBKg/h9EuB+AXhwAEg4TXBIhUgHAtgTA/AOg8AJh8ARhwBrhsAaABA/hYhHBFAEh/gXhgA9pRk8BjA8g7hAgxg2A3hoAIhbAsg1BFAUhxBFhfAo" & _
"hVAAhFAAhZh+AphwAYhbAzg0BsXwBcBugUhbBhh2g7Acgt5fhxAPhBAwg/AEguW/hgAkBBhgBzA0Bdg3faBwBFg3h+hmhYh4hBfSgxg5h1A/gBheADASgcAKg/gJAjCR" & _
"gkgignAiBXAhAwBBCAg=="
	.HTMLPicture("p2") = "gCJKBOI4NBQaBQAhQNJJIIhShQAFUREQIA0RFKQJY2iIJOBILJzhQOYkjYgBSorBwbhQKJ5pIZDKBQNBvOhvOc1OAgJMxEBwORvMxpNhlhR4bSdKZnKhTdIWHr3bz0I" & _
"RLRCAShLN5SCoIEBSISLQAUSImFQhBIQJSIEKhbIVKLBCJFIoEDbIUCIAaORyARlwFgMRQKbAHcghUSOQajRCKZT7cJ7UZray8e7mZr+WrXHznVjzTqzZ4HYAIBiWJAz" & _
"KI1QAMVJCDwRcCDY7EYzhcguICBBQkOAACAIWZkEJzfojAIAfB+Hg8FYiYAHXwAAJ4aYLBAAYBNTbAGAcQ7/B7qISZLgBQCEALAOiRHBLBFjABAPSOISm+ZG9CdTAmKY" & _
"AFAAgADAZYxjEcYACgFsBhOP5zGmABAE6fBMj25ItkoEIKgCUBIgAEAJjKRAiAANAdgAVhnisRQigALAYAACgzCWYgcgAbEFhgJIrjMJAAFgW7tGcCAFlkADTAAGAokQ" & _
"QoUgAAg9wGZARhGPAAEITMYiMeQrh4eIVlcCBzomAA8EyWQeFyEgciKQItgQFo4gOK4rhcDwUGcJILhWCgbDCAQwk0IAXGEPJMgyGRAhoB5wHmZiFQ6CrZEGeZ+jwZwH" & _
"FcZxnBsRxbAcL4WnUX4DH+EQxQOfxymeVY4CAhRwjoPxon8FgXlmDRAB2AxADafxRBKdwCDQLwFlAOp7kWMxZAeIBawAdJtCueY4OW5oilCSBcmybJynIchsCUYghC2M" & _
"JlCuPp/DOYQvmAK5+jYfLmH4e56nAXxxBIQIZC6QIjgIfBwGEZh6CYUoOGeSQEkIMRuHMR4jn4W4Fn+fgOmmERiCSMRciwFQKHGKIJDiRwiE0Rh5hkUoRESIRJBSYoSm" & _
"kf4yHEb4WH2AYfG+GsfjUHwAj2SIWlQLoxgGewlhOCAsDoYBxHuhR5F2N5gmoFAEAGQA0EGcJnjuf53h+fojlAEsIjMJJJDihQvCIEgXCoZRZh+Y7sgAIhQECFRYCCDZ" & _
"6GCDAWGAAwOGCApuGCBZ+DAGxCCEEhiGEIQICEBQyEADg5DAFJWEEIQUEMZpYA6FQwBeaggA6GhgCiNBDEmOAHUIKpcAcHo4AefQwgQTxghQXhAgSAggmQBAJjCEJtEQ" & _
"AIxEULARkcBALkyQp8BCYIkAICRFhIEBkkQCgohEJZIhqJAYikRQqBAKokA6eQejkAQckOLgjF0SIdmQAAZEEPwQwvAjgxEoIEWQUQejUAYLUIYuRUA3A0IQIwogFjQD" & _
"IHQGImhHgWFAJsaAchaAaB6IwGwoRzjQFWGgB42hHg+CGMcGAwB0AYAODMYgbAYAuGMMMIQsQcAsASJMMYyxYgiFYAwVYxgNCwCsKwAYuxEj1DGM8WId3tiBCKMABINg" & _
"CB3CECAMIHgghICwEwLAThsBIFQCADgJAaARG0AkG4CQBiECiMIE4IhJioCWLQEwugIj5GIBgMQMgYiHCwEgFgIxrASEeBMF4EA9iICGMQG4JAJCJCGDIE4uRIACCSLE" & _
"UgVBpASGkEYaQbgpAjHSCwVImwaBIA0CMSYyRtBkDWLIA4ORKAsBACsZAhRyCdHIMMcgMxyAbMOPILYChOhiCAHEUg+ApjiBQFIZQaglAZHKBAcoNBygGDKJgGQQQqij" & _
"E0FIboqBQhUAiDUR4WghCtFCLYKQrwoiHFQBMGgdRNA5GaIMCwSQlilFaKISo0wNBoAuGge4aRXjoDpIAbolQPBOEuNAK40hljpCOOgS46ABj0DuAwBohgKm0EQGcFAG" & _
"RNw0AwGcDIdwMCvEwEwUwGRpiLAyMcKgMAbgxHWJgc4mQHiZDeFVjwtgVB8AqJEZQChKhKEqCYSoGwVAvCoKkVQphVDeFUAsKo8wqjLCoI8VIXgph9FcEYKoMwpjjFSA" & _
"kaglhVhVFUJ0KA6wpgbKWKkHYqBDiqDOKgN4VAfikD8FkfoiQDBZGGEwYYTwhikCiKAWIXxxi8GMCABYYwMizDwCwEIawGirEMHUQINRiAmFiM0bIfA7AqF2JgfoHRdi" & _
"LB6KoVIoQchDBmEoGYVxZhSHmJQMwPwDjjEwHEfAnA6BOASOcFApxLjzD8IobwFB3gpHECkDYpgaBMFyDEMoXA1iqEsJcSwWBVhIFWFEVYRx1i9BsK4dopxOimF6EUXY" & _
"WR9iBAcEEY4SgThcBOEcM4jxnAFE6OcKY2QpjdFOAoU4Fgmg9B0PUVwLhVBrFKBsUIuwiB3F+G4U47hMCeF8F4QAngmBvFON4PIvRzj6A4H0F4/QqD9DaPoU49QjgMCw" & _
"AYWYDASAGG2AwZwGAeDFBqHEN4PAOgvGONseIUQhhdGGEAIYpQwiVDCJccIhBIi5GiDwUY1QjCNCMA8RgaRjBcHGCQcYbRjZ4FGCYAwJgQgmCWE0dQTR3TpCaLkUwKRT" & _
"A7CZowY4zRmDNFEM0awmQaibB6DEa4Mhzib06NcTY3xbhgC0HgLQLBbCoFsLgMoSRZDkC0KYLI7hbC8DcIULQOQsilCwFULQXRZhGFaJ0VoJRrC7FaLsU4ERTi5CcJMJ" & _
"wqxPDWDOMMWA8RbDJFsKkW4GRYDlGxkoVwtg2i2D6GEM4YgLhnFuMUVwwx3CTF6JMPoug+iNH6D0A4DRDjZAcKsDoWgOh+DmLQOQFAdBWB0N4TQzhODuB+H0Yo9BLDpB" & _
"eGcLAzwIDPGwDMcYtgJjLBSMQNJShNjTwVusXIc1KCIEWIkJYghlguEuD4FwmwNjGG6MgXo5AlB0HqHELo4Q9DSHqJ0TYsxNjCHaKgbYrx3A2HcGkdwhxuCfGYDQT4KR" & _
"PBZBmHMaAwxkBDHAFEco0QfgLE+JUGAaxvisD9ZQJ4gQzi1HOCMF4YwXiRCuK0a6QBSh3FUPcMI7wLg+HsD4OQnxxg+HGDwG43gZDeCyF8ZgNxgC3GQLcZYTxhhvE8F8" & _
"Qo3whh/BGzQf4eh/jRAAKcQAJQAhnAGIkQIQU3ACH2PgPQfAQi/EcD8HQ2wyj2FkNkdoQRGCgFyEECoQRHiCFaIIcowRWghDQMgdgkPqj3HOJgZwkRnBpAcIUKAfh0DW" & _
"GgAcMI5gwiLGGH4BgJxCiHEKFcQwPxHBwEQFgDQ0QYhLgag7hohuAhg5hvgiB9AiBLAiBvBNgzgYgngchXgWglAagVAfBVAXA1AeBtAbhdAaBdAfhjAXAzAshmBqgsBO" & _
"gsAkg2AlgOAcgXAVBXAbA3A2BfBvh+B2h5hDhxBOhxAFhxg9gLhMAXhkAug4A8hQhnBhB6BCsLhUgXAJAWAdBLAgAmBEAnAcBKB4AggIAVBUALBGASh5AJg7gShHAFA8" & _
"hhAOhhAzgRAXhogbBohEBsAhguAVKLh5AkAVAmg9BJB2BIheAag8gSBigZhSgWByhchCAThUhIBeAmAGgmBuhNgdBPALBNA7AQA2gZMNBegYhBhJBIhIA4ghBVAQgmhJ" & _
"hbAzh1AzhzAzA7BlhWAyhChZB/Big3BFhbgXgPBKgDhkg1hZhIBWACgsgWgFBbD7h0AqAtAUBrgVADhZAzgykeBfhmhEhlAcq7BPAVhmh2hmBZhlBthIAbhOB3hPh/h2" & _
"gJBhAJBwhJBbBShDAlgrgWgOgsBzBehWA1Ack0A4g8htgFBxgKgCgVhDArADBWAeBcBFKmA2hqgnhVh2grhLhXA/BegTA9Amg1hAgvBghlBBBghagAg1h1qxAFByhCg+" & _
"h1huBrh2gugngsAXgshvhagwh9BDBOgNgfAKhEhFBXAKBtgLhLgKg/hsAUBuA8BygNhDg3hlBfhMhuBKBaBUhVhiBcgyBngzBpAzB0hzBvAWhPAtgHBLBVBLhzBLgHA3" & _
"AGhshtBaAGhvgrBaB2h6h7AihtgXhLhmgUBthdhBhbIGhRhfyFBeAyhThkhnBmgdgfgqJRh6AqB9AqOpBpBuyahrh8A3Boh3ANg9heB7AaB2BqhtgtjLB+gfBkhfBtgq" & _
"gAgqgmhqgzBqgyh9gkh9hZh7gfhXBEhVB0h8BLB9g2guhWgnA2g4h2hjgBhpABh+gDgRgHBbBrhchqBqgOhpAegqApBHhrAVh1gjgHBjgPhfB/BOh3g7gWgGgbAGgqhG" & _
"hOBjBxARg4AiA8hyB0h7gEhvh7gPAGgdBtA7BGA9hWBwgDhpgPg7AOgzsqg1AhBNB5BNAjBNgphNB9gtgxAthdAnhmAfBohrB1BvA9B+AjhtgPgHhOAaAeAsg8glB5gq" & _
"Bkg0htB0hBBphJgzh5BnhGBOhKhOg+g/AXB8huAwBthRBbA9hzgxhnBvg1AHg3h3hdAIA6BwhpAih/hFhzgdheAdhnAuB5BcA6B5BZBthygJgrhcArhNBXgdAvg2h1A6" & _
"B1AeB/BJhpgnhjhdhOBdhNBXBcr0Bch3A9Behag9gzB7h0gNhPAbhnBuh6Beg8h4gLB/hrBqhPAcgehuheh5g9A3h7hil6hvgLBug/A5ATh+hnBlhdhsg7gTh3BWheAn" & _
"heAvh6AgPjhsghhuhDhqgfgth/BuBsB3huA/g1BgA7hQB5wBgjh7gDBChBhnh/BIh6hHgHghgChHhMhHhlhDKTh1hPAcAfAcgchxAfg5B+h0h+BTghhnysATBPALlfh/" & _
"BlhXALgLAXg/B8Bqh1hrhnBohMBohQhLh5BLhJhfg2g+BSh+h1BgB1gMhXhthjBhBjAPBfBkg8AZgYgvB6ArB9h2hgg7huA7gOh3hRhvgHgnhyA+AQA/gUB/g0B8hYh6" & _
"gphoBTh9hJgMhJhJh/gCABhMB5h+AxgZgWhtiIgCAzgggmggiFBYhHA+B9gohJiIgQAxgkApAmiFA9GzkIhBiFB8h/iFBAB0iFA6kYAAB1AwCFAdBMCFALg3hJAvhigj" & _
"CFAFh9AkgiAggqCkBWBMAshHguhjg4hjh/15Bsh3AZB7hnAGBDghg1AiBMgtCQBZASgtycBigkBIALh9gSg3gghfAgAfAkhfAkAIByASggBADqBBAWAgB5AIACBEAxAl" & _
"hbAygWhqM8hDBRAcAZhOB6g3Azh0hWh5AYKaBpAItWg4gBhCg9hABBhth+h1h/quMOgxAzB+BygvjjhfBlAwAIBWA6AUA6gFhUAfBFBzALAKg6AEBGAvAIgzB5AVhnAy" & _
"AngChRhuBag1hnhUh029AQh6hKxyhoh9g8BzgOh4A1grgZguB/hnANh8Bbg/g/ANgigjAIAihHBTBKhlhMgEh1BwAmhUBqAAASAPBWh7hxhfh8BtgjhngFBvgwAYBEBK" & _
"BGAAATi5ABA2gWhshEhSAlBMg6gfBChOh7g3puANoXhJgYB2ArgMAHHyBggGAxATA+BZh4haggFDhBBEACAIh6hzA9gtA0BQhZJWhxh9gbhMhMhBhkBIBjhSBthzBgg7" & _
"BogvgLhbAch2g1BIgFAtBvhYBaA+gMBhAwBVAxhwAQAkBNASBEBnh7AGBABMggAiB/g3goAlAIAIBBEKBxAqAzBNBSA6Apg9h2AKBXgFBIhlguBzgUhqBJBlgogmBXAU" & _
"hCgahPB9A9AgAehlA+rahPh2APh5hkg4gvg+gYBcgbA2hxgjgigRB1gqgpALBWg3BaAQAxASArAZGMgEAiglh5BXgEg9BbAigJAaBWAPhIBmgShKgqgUhqg6AfhFhnB1" & _
"gZAWA6A2AyBPA9BigQBFgjhehUBegRgbgXhahmhWgaBYgHgihcgJAugJheAFhIB5h6AuA9BLhqhXAZwQgLB7h8hMgpgqhrh9BlA4ANAJg6g4hSgYB8WMhYBDBfBbBRBz" & _
"h/gIBGACBOglg6h4h0BrhSh1gvgFhCBbBpA/BPBsglAKhfBMgygRBpAVA8BfAMhBgkA2grhNgbBrANhJAtgVhzBVMVhPAdAxgahxgwA5AdAYBqgoA9gpBnB9gCh3hvBP" & _
"BWg2BGh6BfBbtKBlBAAMh5kBBiB0hYhSg/gdgUAAgcAHgegogUALAvAGgyBb3VhVBehNhxg7A2gehyAcgugmBYgPAYBmg9hujAgxgtAuAig9o/BzhZgwhDAwSBhEg0hL" & _
"BhAeA3BihvB4AQAChahWgVgwhqhlAUAmTbB9yUBmhGgFgUh9BEg5hehXBqhrg+APBvArACAoBqAehnh+BqgKBSg5gxgTAogMBTg9xxAIABhzBygYAqg6AZAUAzBdhShn" & _
"h6AoBCh7BSkZAR0+h9hqhFg9B9U+Agg3heg/g6gmhMBeABAgBEBvAwgfBPh+ByA4A/h7iagIgfgmArBvAegcA4B/g0h9heh1hdBhBkhhhRg3A3A9gVhpF0hXhxhJg9S8" & _
"Bxg1hDg9hvA8OKhbhBBpBxhYAjAihkgWBSBFhogGBiA6AkBfBhhqAKA3ByAHBfANsEq8BThvhchaBcB+hpgVgthx6ZBigf2shHhghhG8AzgZhSBEAoh6BcBuBnBjhFgD" & _
"h7g/heB5h0hOgPhuBWB2gFBXg+h3hWhhhOh2hPhMh/BzA8BKgfA/AjB8hLALhiglg7gRIpBfhbhQBTB4gWBCB8AlBFBBAghiASBUAaB5hOBBhbgmgKAMBEh9AsglBJhv" & _
"AkhGBdAcBfB/hJg3hkhugfg/B4hDhXhyBzBhAyniB4BVADBEgHASTegmgIhEgRAUAHh0Augshjhlh1gyhbA7A1h9gnhvhfB4gvhVhFhFhrhTA1g7B3htgTAzADgJh4hm" & _
"BngJgJA2APA6gyg9BaBohLhvADhxBThA8aBIASgmhSgnAugbA3glAXASgqAwhhgYBaA2hTBthsg5g9A4h4BjAqg5h/gnhXB/h4AahFhVBHgQBzggBTAQhGABBIgeApgK" & _
"AAAcAgg5AABDhABsA7AAABL7g3hwAjhyA/h3h+hBh2gwg4AXh/glgWh5A2g2huBAAKg8hiBDB3APArhagIgFhGB8gQgMBxAlgghEgABIgQA0gMA7h5huBcAFgkhKhehw" & _
"BBAGhYh2hCg9BfA/A+g4hxhTsdg0BlhRAHhSA2AAhZALBSAMhIA0g8h+BOg9goABAcBBAqAABUgAB7APAwhogxB2h9AIArhdhnhXhfhZg7h4BIhuAUBbeWgRC9gegmAN" & _
"B6hEhcBpgDBVeQgnhTBqA5goBYgaARASAQhagogJh6hJBFg+BoBWBkB+hmhYgeA+hqhjh9A5BWA3h/BwBChzgugvhWgzAEAsgBgohshZgMgUABARAACNAoAfABgigBCI" & _
"BCADhKADgkhHgaB70tBqgwPDBPh/Boh2hJhxBWhZdohACytSkQAwp26ISCyh0y3IEzO/jeKhUzzASQUjhs510AkmqTSVF24EeTEwf32+XCvWu+0uamI3ECcgEJE+QUkf" & _
"gY8hiRUilnezxA2R0JEcUGS4Xk2mc+Fmhy230eeViTSsZAULFCc2+NRiSgiCRkPFCqDw7CuAigRGSREgbkkoWQEGkzQWnheCj+eGgH3qTwo5RmwCYQBsAmoAW4Ai4AzS" & _
"aW4LFaBSkc3sDhawA6iA4yCIJB8wnUyDCSEOLyOqWuwCwAyK2x0n1iNgyOAQRCaX0snkIEBItTAqwgchSyAMhsIGlIw0afmqgRKA34KUgrgGMAAIkA/CYVVCAUky1enw" & _
"A9jOwmEAXQADMEA+gmqHlQD3o82S5jS11YhyM3hqujLFwYgjPIURkHEGhTAQLwnH8AiUM8jAAN8CQ0BMLSELcKhrKsTD4DEcy6FgaQ3NImgBCEwA8AM3ANJAfgFFAlwB" & _
"MoABSAAyRHB4ChaK4IxyIASwgM0wDxFMIDeAUKxAGYQCuOo0goLUYT7IMCxkHoiwhGUjgFDkKQ2FgtTdBcBgTAMSAMCQJQSAo2RZCsXCRFEWzpNQFA+LYSjCAsEgAAsB" & _
"iEAEYDAHEHxEAoJA3AAMQAMgAAQEsLxlAAHhgA8TgTHAuAPMQOSYCscCsCERSEJQST6KYizNMkdAqHUPBhFkTgANkUhwCkBx9CEaACJACCcBwZT+MQXA4DUcCuMcpwxK" & _
"QTgzMsfibHQywBKAqDAHIDDIAIxASIghzgDQAxiAUkjlDIsAIEABCnBoCAzIAawQCIWCWCAaQBCMAQ+IUDyqJM2iQM0qihLQ1RKEgtgGKkGClAkczEEcHznDcfSUBkFA" & _
"lPslDFBomT0CoExBFskgSEoCyfHo8zaCsWA1AAcQJIIORTJAzAZBwSQwLsMwVJcCQfEgyxPK95AgO4wBwCAqiQEIixZJ0HydMo5g9G8ZgfMooA+KsUROLQrTaNE0DGBQ" & _
"XB6OoERKGABCoXIMQ1F0CDkDoLx5MYgQfHYVB9HQcjcHsYzcOYlCMAUtBdqgXSaF4TgnB4lTbGcPjqAAPjPA4BA4IIcCMFkmzhNA9x3KoqjwKUzh7KwTDhJkagFHY7j0" & _
"NARzfD0NSPJ43yHLgiwyCY0zvBAQytGU2yWDo6CYPUpifB8rDtG4TTmJssiyOAmCBFQDhQP4GCwFoZg5AACAAIcsxoD83xAAI4AIFQtzYL8IzZNsyyfDAxQHE48A9MgN" & _
"glgghFFKJkKgTAiAyHiJca4owiBgAkCkdYDg6ipE0EIGQiQnCtA6LACI6hUD5GsI0bonQvhtB8LsBQeByBACiIAJgAQ9AEFWJcWAOBBgkf2AYJACgkCEHIrQGLzRnixG" & _
"uD0X4ew4jrBkDEMYsxBjeFeJkD4shYh1EoD4BobAXglC+OINIUQ/juC2BwQoSgmi+G0DgJQhxShYDoCUT4iAwhxH4JwUgtQDg3A+F4Xw1xdh9FwDUPQYQBjeEqIAZQAQ" & _
"ogCGQEEWAjwmgZGANwAIXBBhBDAMcCADQRhNHsHEfYbhrA8EgBcf4ehaisB8O8M4JRkjpBoFMbo8QUC2A6FMGYnxoBoAQPEUgoAnimFOHMF48AYBeAkJECojRJDJDiEY" & _
"GYzRYDTEwK8bonA6DXDOO8Pw/BFg/H2J4bQ3gMC8HwBoQQrxgBcEAHQAIlgLDEA0CAQA2QBhJECOMLIfBUiYAgE8HxywvgeDsLcfoqw/g3G4NgHgcATjzEeE4I49o+jx" & _
"CECUC4Exnh1HgAgUA+hrCHEAJAL4CkaCYGAPAJIAg4BdEMBkPY9AniiA0NYNADxli8HQHcPYiw1h/HmNYPYnx+D5FWO4ToKx1hXC+AcRoxwkBqAAE4fI8haDiFmOgcwG" & _
"hpATDQHERQyR7O8D6PMUAuxKheH+PsWgsh9BPCaL0XAXxWhvCMMkawuA0h7CWNoJQpQVDEBIBASAmx/gtAuL8FAPQejmAECEGIpQXApByBMC4DhSivAuDIFgzAlCWC6G" & _
"odQ5gBhbAcC8WoxQPj+GGH8P48hgw0HcLwfI/QzivHaAwQ4lxXDBFYDwA4sgxiAAKNgJoEB1j7EwO4PwjBujbDuOMewUQ7B7FsPofY/xfPWDkNAYIthYD6FQFkUggx/B" & _
"mB+PYBQWwmAOG4MQQ46AkALGgKAf41AFD/A4JIDwVw7DOEGJoXADhrB3D8KAGGAwxDHCgCwAw6xChNDcPIbwIhvj6GyIQKwDw3jcEyLyLAeBZgYHsN4LgsxbDIEQIQeg" & _
"3g6srCeE4XovQtibAuN8FYxxhijB4B8HwCB8jgFCAkOAdQWC6CoEoGwVAahcH2NkagzQiivCuP4T4gh8xgH+DgGAExAjnGiLYIwGhNDFHCKESgXidBODuF0bgkRTD3BA" & _
"JceYbBaBqA+B4Y4zQ7inBoKkR46xiggAmGpZ4MY3h6G2FccQngKg2DUCUe4ZAvAJC6LsaAcQ3iXBmG4KoJBoj6GEB0GwnhujBEoLMAIRQJAEFgPgLQ9x9BlFWAUBIQho" & _
"gxCsOsYQBhYjhFuKsYwmRDiVCaMMZIIhOhsY4HcQYjh3gzHKLcfQQwYj0F8GoRYfhbClHkJgaITB3AEEyI4KoRBxCsHkK4YokRWDKAEKcaYtgPBfB0M0JoAx8DIDaJcQ" & _
"4vAUDBDSPIRoWwdB8G8HAMQEhqBGf0GIMYNhXC3GaKwW46hHBmA4LYZgTg2AxH8HUMQ8woBnHyIYSg7gkAoGmAkdorBkDsCcCYFINB2jsCIAUHoZBNidBoLIHQyh8jIG" & _
"MC4GoCwNB1DaKwMfLhyA2B6K0d48BKh7CeHwLwBgCAmB0OEIIKhrieCSJMaATwrj8GeHsRI3BBg2AaGYaIhwnBajQJECY6QkBCFwJwVI2A7ghYSOsOYrQmhDEyFUNogx" & _
"9DUC8J4ZY6QIhtGeC8XQcRPAgEQH8W43QeACCwFIYQfgehIA8JoZIpBTDrFaH8Cy0ApC5EuB4Tg1BQBsB6DcY42hgCWGKGgcIkhJh1GmIQSozRqhuD0DwSYvQIjiBOHs" & _
"YYlBVgOAoOMeQ/gjC/C2NAeYEQQ0pCQIkPoPhUC8HGAgY4QQMCjB0O8cwbAFB5GECnoYoh4gOCIL4NY0xOjbD3B4B1BUAmClAyAYDFDLDKDqDrB1BKD/BnAADtCOCxD1" & _
"DLZnCEAAgZAABJBFBOBECuBCBgCCEBA=="
	var_HTMLPicture = .HTMLPicture("aka1")
	.HeaderHeight = 24
	.DefaultItemHeight = 48
	.DrawGridLines = -2
	.GridLineColor = RGB(240,240,240)
	.SelBackMode = 1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.Columns.Item(0).Def(17) = 1
	.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
	.Columns.Item(0).Width = 112
	.Columns.Item(1).Def(0) = 1
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = 10
	.SingleSel = False
	With .Items
		h = .ItemByIndex(1)
		.SelectItem(h) = True
		h = .ItemByIndex(2)
		.SelectItem(h) = True
		h = .ItemByIndex(3)
		.SelectItem(h) = True
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.CellValue(h,1) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
		.CellSingleLine(h,1) = False
		.CellValueFormat(h,1) = 1
		.CellHAlignment(h,1) = 1
		.ItemDivider(h) = 1
		.ItemDividerLineAlignment(h) = 2
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = 9
	.SingleSel = False
	With .Items
		h = .ItemByIndex(1)
		.SelectItem(h) = True
		h = .ItemByIndex(3)
		.SelectItem(h) = True
		h = .ItemByIndex(4)
		.SelectItem(h) = True
		h = .ItemByIndex(5)
		.SelectItem(h) = True
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.CellValue(h,0) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
		.CellSingleLine(h,0) = False
		.CellValueFormat(h,0) = 1
		.CellHAlignment(h,0) = 1
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = 2
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.AutoDrag = 3
	.LinesAtRoot = 0
	.HasLines = 1
	.HasButtons = 3
	.ShowFocusRect = False
	.SelBackMode = 1
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Group 1")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		h1 = .InsertItem(h,,"Task 1")
		h2 = .InsertItem(h1,,"Task 2")
		h2 = .InsertItem(h1,,"Task 3")
		h3 = .InsertItem(h,,"Task 3")
		.ExpandItem(h) = True
		.ExpandItem(h1) = True
		h = .AddItem("Group 2")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
		.LockedItemCount(2) = 1
		h = .LockedItem(2,0)
		.CellValue(h,0) = "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the i" & _
"ndentation."
		.CellSingleLine(h,0) = False
		.CellValueFormat(h,0) = 1
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.AutoDrag = 2
	.LinesAtRoot = 0
	.HasLines = 2
	.ShowFocusRect = False
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Group 1")
		.ItemDivider(h) = 0
		.ItemBold(h) = True
		h1 = .InsertItem(h,,"Task 1")
		h2 = .InsertItem(h,,"Task 2")
		h3 = .InsertItem(h,,"Task 3")
		.ExpandItem(h) = True
		h = .AddItem("Group 2")
		.ItemBold(h) = True
		.ItemDivider(h) = 0
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.AutoDrag = 1
	.Columns.Add "Task"
	With .Items
		h1 = .AddItem("Task 1")
		h2 = .AddItem("Task 2")
		h3 = .AddItem("Task 3")
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add "Def"
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	With .Items
		.AddItem "Item A"
		.AddItem "Item B"
		.AddItem "Item C"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Items
		.AddItem "Task 1"
		.AddItem "Task 2"
	End With
	.EndUpdate 
	.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
End With

With Grid1
	.BeginUpdate 
	.Columns.Add "Default"
	With .Items
		.AddItem "Item 1"
		.AddItem "Task 2"
	End With
	.EndUpdate 
	With CreateObject("Exontrol.Print")
		.PrintExt = Grid1.ExecuteTemplate("me").Object
		.Preview 
	End With
End With

With Grid1
	.BeginUpdate 
	With .ConditionalFormats.Add("1","K1")
		.BackColor = RGB(255,0,0)
		.ApplyTo = 1 ' &H1
	End With
	With .ConditionalFormats.Add("1","K2")
		.BackColor = RGB(255,0,0)
		.ApplyTo = 2 ' &H2
	End With
	.MarkSearchColumn = False
	.DrawGridLines = -2
	With .Columns
		.Add "Column 1"
		.Add "Column 2"
		.Add "Column 3"
	End With
	With .Items
		.AddItem 
		.AddItem 
		.AddItem 
	End With
	.EndUpdate 
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Grid1_ButtonClick(ByVal Item As Long,ByVal ColIndex As Long,ByVal Key As Variant)
	With Grid1
		With .DataSource
			.AddNew "Task","New-Task"
			.Update 
		End With
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub Grid1_Error(ByVal Error As Long,ByVal Description As String)
	With Grid1
		Debug.Print( Description )
	End With
End Sub

With Grid1
	Set rs = CreateObject("ADODB.Recordset")
	With rs.Fields
		.Append "Task",8
		.Append "Start",7
		.Append "End",7
	End With
	rs.Open 
	.DrawGridLines = -2
	.DetectAddNew = True
	.DetectDelete = True
	.DataSource = rs
	With .Items
		.LockedItemCount(0) = 1
		h = .LockedItem(0,0)
		.ItemDivider(h) = 0
		.ItemHeight(h) = 22
		.CellValue(h,0) = "AddNew"
		.CellHasButton(h,0) = True
		.CellHAlignment(h,0) = 1
	End With
End With

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub Grid1_OLEStartDrag(ByVal Data As Object,AllowedEffects As Long)
	' Data.SetData("your data to drag")
	With Grid1
		AllowedEffects = 2
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Columns.Add "Default"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
	.OLEDropMode = 1
	.EndUpdate 
End With

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub Grid1_AfterExpandItem(ByVal Item As Long)
	With Grid1
		Debug.Print( "AfterExpandItem" )
		Debug.Print( Item )
	End With
End Sub

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Grid1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With Grid1
		Debug.Print( "AnchorClick" )
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Grid1_BeforeExpandItem(ByVal Item As Long,Cancel As Variant)
	With Grid1
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( Item )
	End With
End Sub

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Grid1_ButtonClick(ByVal Item As Long,ByVal ColIndex As Long,ByVal Key As Variant)
	With Grid1
		Debug.Print( "ButtonClick" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
		Debug.Print( Key )
	End With
End Sub

' CellImageClick event - Fired after the user clicks on the image's cell area.
Private Sub Grid1_CellImageClick(ByVal Item As Long,ByVal ColIndex As Long)
	With Grid1
		Debug.Print( "CellImageClick" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As Long,ByVal ColIndex As Long)
	With Grid1
		Debug.Print( "CellStateChanged" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Grid1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With Grid1
		Debug.Print( "Change" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
		Debug.Print( NewValue )
	End With
End Sub

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub Grid1_Click()
	With Grid1
		Debug.Print( "Click" )
	End With
End Sub

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Grid1_ColumnClick(ByVal Column As Object)
	With Grid1
		Debug.Print( "ColumnClick" )
	End With
End Sub

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Grid1_DblClick(ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Grid1
		Debug.Print( "DblClick" )
		Debug.Print( Shift )
		Debug.Print( X )
		Debug.Print( Y )
		.Edit 
	End With
End Sub

' Edit event - Occurs just before editing the focused cell.
Private Sub Grid1_Edit(ByVal Item As Long,ByVal ColIndex As Long,Cancel As Boolean)
	With Grid1
		Debug.Print( "Edit" )
		Debug.Print( Item )
		Debug.Print( ColIndex )
	End With
End Sub

' EditClose event - Occurs when the edit operation ends.
Private Sub Grid1_EditClose()
	With Grid1
		Debug.Print( "EditClose" )
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub Grid1_EditOpen()
	With Grid1
		Debug.Print( "EditOpen" )
	End With
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub Grid1_FilterChange()
	With Grid1
		Debug.Print( "FilterChange" )
	End With
End Sub

' FilterChanging event - Notifies your application that the filter is about to change.
Private Sub Grid1_FilterChanging()
	With Grid1
		Debug.Print( "FilterChanging" )
	End With
End Sub

' FocusChanged event - Occurs when a new cell is focused.
Private Sub Grid1_FocusChanged()
	With Grid1
		Debug.Print( "FocusChanged" )
	End With
End Sub

' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub Grid1_KeyDown(KeyCode As Integer,ByVal Shift As Integer)
	With Grid1
		Debug.Print( "KeyDown" )
		Debug.Print( KeyCode )
		Debug.Print( Shift )
	End With
End Sub

' KeyPress event - Occurs when the user presses and releases an ANSI key.
Private Sub Grid1_KeyPress(KeyAscii As Integer)
	With Grid1
		Debug.Print( "KeyPress" )
		Debug.Print( KeyAscii )
	End With
End Sub

' KeyUp event - Occurs when the user releases a key while an object has the focus.
Private Sub Grid1_KeyUp(KeyCode As Integer,ByVal Shift As Integer)
	With Grid1
		Debug.Print( "KeyUp" )
		Debug.Print( KeyCode )
		Debug.Print( Shift )
	End With
End Sub

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub Grid1_LayoutChanged()
	With Grid1
		Debug.Print( "LayoutChanged" )
	End With
End Sub

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub Grid1_MouseDown(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Grid1
		Debug.Print( "MouseDown" )
		Debug.Print( Button )
		Debug.Print( Shift )
		Debug.Print( X )
		Debug.Print( Y )
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Grid1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub Grid1_MouseUp(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Grid1
		Debug.Print( "MouseUp" )
		Debug.Print( Button )
		Debug.Print( Shift )
		Debug.Print( X )
		Debug.Print( Y )
	End With
End Sub

' OffsetChanged event - Occurs when the scroll position has been changed.
Private Sub Grid1_OffsetChanged(ByVal Horizontal As Boolean,ByVal NewVal As Long)
	With Grid1
		Debug.Print( "OffsetChanged" )
		Debug.Print( Horizontal )
		Debug.Print( NewVal )
	End With
End Sub

' OversizeChanged event - Occurs when the right range of the scroll has been changed.
Private Sub Grid1_OversizeChanged(ByVal Horizontal As Boolean,ByVal NewVal As Long)
	With Grid1
		Debug.Print( "OversizeChanged" )
		Debug.Print( Horizontal )
		Debug.Print( NewVal )
	End With
End Sub

' RClick event - Fired when right mouse button is clicked
Private Sub Grid1_RClick()
	With Grid1
		Debug.Print( "RClick" )
	End With
End Sub

' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub Grid1_ScrollButtonClick(ByVal ScrollBar As Long,ByVal ScrollPart As Long)
	With Grid1
		Debug.Print( "ScrollButtonClick" )
		Debug.Print( ScrollBar )
		Debug.Print( ScrollPart )
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Grid1_SelectionChanged()
	With Grid1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub Grid1_Sort()
	With Grid1
		Debug.Print( "Sort" )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02h" & _
"z+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z" & _
"6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvL" & _
"D8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4A" & _
"M2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnD" & _
"tBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5" & _
"lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt" & _
"73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeU" & _
"znmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJ" & _
"KSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/A" & _
"cjwAHBsiQex8gPH+MF7pDxxkB"
	.DrawGridLines = -1
	.LinesAtRoot = -1
	.GridLineStyle = 4
	.AutoEdit = False
	.ExpandOnDblClick = False
	With .Columns
		With .Add("Column")
			.DisplayFilterButton = True
			.Def(0) = True
			.Editor.EditType = 1
		End With
		With .Add("Button")
			.AllowSizing = False
			.Width = 18
			.Def(2) = True
		End With
	End With
	With .Items
		h = .AddItem("parent")
		.CellImage(h,0) = 1
		.InsertItem h,"","child"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Grid1_ColumnClick(ByVal Column As Object)
	' Column.Selected = True
	With Grid1
		.BeginUpdate 
		.Columns.Item(0).Selected = False
		.Columns.Item(1).Selected = False
		.Items.SelectAll 
		.EndUpdate 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.SingleSel = False
	.FullRowSelect = 1
	.SortOnClick = 0
	With .Columns
		.Add "Column1"
		.Add "Column2"
	End With
	With .Items
		.CellValue(.AddItem("One"),1) = "Three"
		.CellValue(.AddItem("Two"),1) = "Four"
		.SelectAll 
	End With
	.EndUpdate 
End With

With Grid1
	With .Columns.Add("Currency")
		.FormatColumn = "dbl(value) ? currency(dbl(value)) : ``"
		With .Editor
			.EditType = 1
			.Numeric = 1
		End With
	End With
	With .Items
		.AddItem 1.23
		.AddItem 2.34
		.AddItem 0
		.AddItem 10000.99
	End With
End With

With Grid1
	.Columns.Add "Number"
	.Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``"
	With .Items
		.AddItem 1.23
		.AddItem 2.34
		.AddItem 0
		.AddItem 10000.99
	End With
End With

With Grid1
	.BeginUpdate 
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add "Names"
	With .Items
		.AddItem "Mantel"
		.AddItem "Mechanik"
		.AddItem "Motor"
		.AddItem "Murks"
		.AddItem "Märchen"
		.AddItem "Möhren"
		.AddItem "Mühle"
	End With
	.Columns.Item(0).SortOrder = 1
	.EndUpdate 
	Debug.Print( .GetItems(1) )
End With

' EditClose event - Occurs when the edit operation ends.
Private Sub Grid1_EditClose()
	With Grid1
		.Items.AddItem ""
	End With
End Sub

With Grid1
	.BeginUpdate 
	.AutoEdit = True
	.Columns.Add("Default").Editor.EditType = 1
	.FullRowSelect = 0
	.Items.AddItem ""
	.DrawGridLines = -1
	.ScrollBars = 15
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HeaderHeight = 48
	.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
	.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = 1 ' &H1
	End With
	.Columns.Add "C1"
	With .Columns.Add("C2")
		.HeaderBold = True
		.HTMLCaption = "<fgcolor=FF0000>C2"
	End With
	With .Items
		.CellValue(.AddItem(10),1) = 11
		.CellValue(.AddItem(12),1) = 13
	End With
	.EndUpdate 
End With

With Grid1
	With .Columns.Add("Check")
		With .Editor
			.EditType = 19
			.Option(17) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.CustomFilter = "checked||-1|||unchecked||0"
	End With
	With .Items
		.AddItem True
		.AddItem True
		.AddItem False
		.AddItem True
		.AddItem False
		.AddItem True
		.AddItem False
	End With
End With